Resource for Source: Visual Basic/Resource for Source - Visual Basic.iso/magazine/vbz01/scrnsave.bas

BASIC Source File | 1995-11-01 | 2KB | 48 lines

DefInt A-Z

Declare Sub WritePrivateProfileString Lib "Kernel" (ByVal lpApplicationName$, ByVal lpKeyName$, ByVal lpString$, ByVal lplFileName$)
Declare Sub SetWindowPos Lib "User" (ByVal hWnd, ByVal After, ByVal X, ByVal Y, ByVal cx, ByVal cy, ByVal Flags)
Declare Function GetPrivateProfileString Lib "Kernel" (ByVal lpApplicationName$, ByVal lpKeyName$, ByVal lpDefault$, ByVal lpReturnedString$, ByVal nSize, ByVal lpFileName$)
Declare Function GetPrivateProfileInt Lib "Kernel" (ByVal lpApplicationName$, ByVal lpKeyName$, ByVal nDefault, ByVal lpFileName$)
Declare Function SystemParametersInfo Lib "User" (ByVal uAction, ByVal uParam, lpvParam As Any, ByVal fuWinIni)

'Functions in SSAVE.DLL
Declare Function GetSSPassword Lib "SSAVE.DLL" ()
Declare Sub SetSSPassword Lib "SSAVE.DLL" ()


Dim Dialog, Saving

Const SWP_NOSIZE = 1
Const SWP_NOMOVE = 2
Const SPI_SETSCREENSAVERACTIVE = 17

Sub Main ()
    Select Case Command$
        Case "/s", "/S"
            Res = SystemParametersInfo(SPI_SETSCREENSAVERACTIVE, 0, ByVal 0&, 0)
            Load SaveForm
            ok = DoEvents()
            SetWindowPos SaveForm.hWnd, -1, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
        Case "/c", "/C"
            ConfigForm.Show 1
    End Select
End Sub

Sub TryToGo ()
    If Not Saving Then
        Saving = True
        Exit Sub
    End If
    Saving = False
    If (Not Dialog) Then
        Dialog = True
        If (GetSSPassword() * -1) Then
            Res = SystemParametersInfo(SPI_SETSCREENSAVERACTIVE, 1, ByVal 0&, 0)
            End
        End If
        Dialog = False
    End If
End Sub